Ì € i 2
mm.po.bv.edi.pgms (bv.edi.pgms)
[bkg.ver.urn, bv.edi.po]
:MPBV[mpbv]E[mp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bv.edi.po 30 URN L MM.PO mp
bv.edi.pgm 15 FREE L MM.EDI.PROGRAM :MPBV[mpbv]E[mp]
Ì € i 2
mm.param.bv.po.list (bv.po.list)
[bkg.ver.urn, bv.po]
:MPBV[mpbv]L[mp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bv.po 30 URN L MM.PO mp
Ì € i 2
mm.po.bv.po.messages (bv.po.messages)
[bkg.ver.urn,bv.po, bv.po.message.urn]
:MPBV[mpbv]L[mp,mpbvU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
bv.po.message.urn 3 PINT R mpbvU
bv.po.message 65 FREE L :MPBV[mpbv]L[mp,mpbvU]|0
Ì i 2
mm.po.edi.send.queue (edi.send.queue)
[edi.program,edi.vendor.number,edi.po.urn]
*MPSQ[mjd,gr,mp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edi.program 15 FREE L MM.EDI.PROGRAM mjd
edi.vendor.number 11 FREE L MIS.VEN gr
edi.po.urn 30 URN L MM.PO mp
edi.send.entire.po 1 YN L *MPSQ[mjd,gr,mp]|0
Ì € i 2
mm.po.edi.send.queue.lines (edi.send.queue.lines)
[edi.program,edi.vendor.number,edi.po.urn, edi.send.queue.line.no]
*MPSQ[mjd,gr,mp]L[mpL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edi.send.queue.line.no 4 PINT R mpL
Ì i 2
mm.po (main)
[urn]
*MP[mp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
urn 30 URN L mp
active 1 YN L *MP[mp]|0
ap.database 12 FREE L MIS.APPL *MP[mp]|25
ap.recon.date 8 DATE L *MP[mp]D|5
auth.number 20 FREE L *MP[mp]A|18
auto.receive 1 YN L *MP[mp]|26
blanket.exp.date 8 DATE L *MP[mp]A|15
blanket.tot.amt.ed 10 PMONEY R *MP[mp]A|16
blanket.tot.amt.ord 10 PMONEY R *MP[mp]A|17
buyer 10 FREE L MIS.USER *MP[mp]A|4
cancel.date 8 DATE L *MP[mp]D|4
clerk 10 FREE L MIS.USER *MP[mp]A|12
close.date 8 DATE L *MP[mp]D|1
confirm.date 8 DATE L *MP[mp]|15
consignment 1 YN L VAL=@MM.INVENT.consignment[@inventory]
contact 30 FREE L *MP[mp]A|14
cycle.period 3 PINT R *MP[mp]A|8
deliv.addr1 30 FREE L VAL=@MM.PUR.FAC.deliv.addr1[IF{@MM.PO.purch.facility;@
VAL=MM.PUR.FAC.dft.facility}]
deliv.addr2 30 FREE L VAL=@MM.PUR.FAC.deliv.addr2[IF{@MM.PO.purch.facility;@
VAL=MM.PUR.FAC.dft.facility}]
deliv.addr3 30 FREE L VAL=@MM.PUR.FAC.deliv.addr3[IF{@MM.PO.purch.facility;@
VAL=MM.PUR.FAC.dft.facility}]
deliv.date 8 DATE L *MP[mp]|10
dollar.tot 11 MONEY R VAL=(@p.MM.PO.po.tot:2D)
dollar.tot.rpt 11 MONEY R VAL=(IF{@p.MM.PO.type="RETURN" 0-1;1}*@p.MM.PO.po.tot:
VAL=2D)
edi.last.date.ack 8 DATE L VAL=@MM.PO.edi.txn.ack.date["ACK",@MM.PO.edi.last.urn.
VAL=ack]
edi.last.date.sent 8 DATE L VAL=@MM.PO.edi.txn.sent.date["SENT",@MM.PO.edi.last.ur
VAL=n.sent]
edi.last.txn.date 8 DATE L VAL=(@MM.PO.edi.txn.sent.date[@MM.PO.edi.last.txn.type
VAL=,@MM.PO.edi.last.txn.urn])
edi.last.txn.type 4 CHOICE L *MP[mp]EDI|1
edi.last.txn.urn 3 PINT R *MP[mp]EDI|0
edi.last.urn.ack 3 PINT R VAL=-@MM.PO.edi.txns[MM.PO.urn,"ACK",""]
edi.last.urn.sent 3 PINT R VAL=-@MM.PO.edi.txns[MM.PO.urn,"SENT",""]
edi.pgm 15 FREE L MM.EDI.PROGRAM *MP[mp]|18
edi.send.changes 1 YN L *MP[mp]|19
exempt.purch.cert 20 FREE L VAL=@MM.PUR.FAC.exempt.purch.cert[IF{@MM.PO.purch.faci
VAL=lity;@MM.PUR.FAC.dft.facility}]
exempt.purch.cert.state 5 FREE L VAL=@MM.PUR.FAC.exempt.purch.cert.state[IF{@MM.PO.purc
VAL=h.facility;@MM.PUR.FAC.dft.facility}]
facility.addr1 30 FREE L VAL=@MM.PUR.FAC.fac.addr1[IF{@MM.PO.purch.facility;@MM
VAL=.PUR.FAC.dft.facility}]
facility.addr2 30 FREE L VAL=@MM.PUR.FAC.fac.addr2[IF{@MM.PO.purch.facility;@MM
VAL=.PUR.FAC.dft.facility}]
facility.addr3 30 FREE L VAL=@MM.PUR.FAC.fac.addr3[IF{@MM.PO.purch.facility;@MM
VAL=.PUR.FAC.dft.facility}]
facility.name 40 FREE L VAL=@MM.PUR.FAC.name[IF{@MM.PO.purch.facility;@MM.PUR.
VAL=FAC.dft.facility}]
first.deliv.date 8 DATE L *MP[mp]A|7
first.rcpt.date 8 DATE L *MP[mp]D|2
fob 35 FREE L *MP[mp]|13
id 30 URN L MM.PO VAL=(@MM.PO.number_" - "_@MM.PO.status'=" - ")
int.id 30 URN L MM.PO VAL=(@number[urn]_" - "_@status[urn]'=" - ")
inventory 10 FREE L MM.INVENT *MP[mp]|3
invoice.addr1 30 FREE L VAL=@MM.PUR.FAC.invoice.addr1[IF{@MM.PO.purch.facility
VAL=;@MM.PUR.FAC.dft.facility}]
invoice.addr2 30 FREE L VAL=@MM.PUR.FAC.invoice.addr2[IF{@MM.PO.purch.facility
VAL=;@MM.PUR.FAC.dft.facility}]
invoice.addr3 30 FREE L VAL=@MM.PUR.FAC.invoice.addr3[IF{@MM.PO.purch.facility
VAL=;@MM.PUR.FAC.dft.facility}]
last.line 4 PINT R *MP[mp]|12
last.line.disp 4 PINT R VAL=IF{@MM.INVENT.consignment[@inventory]="Y" ""^MM.PO
VAL=.line.no,DO{-*MP[@MM.PO.urn]L[MM.PO.line.no]^MM.PO
VAL=.line.no&("Y"'=@consignment.order)},line.no;@last.
VAL=line}
last.rcpt.date 8 DATE L *MP[mp]D|3
no.cycles 3 PINT R *MP[mp]A|9
no.cycles.completed 3 PINT R *MP[mp]A|10
number 10 FREE L *MP[mp]|1
number.and.status 25 FREE L VAL=(@MM.PO.number_" - "_@MM.PO.status'=" - ")
offsite.addr1 30 FREE L *MP[mp]A|0
offsite.addr2 30 FREE L *MP[mp]A|1
offsite.addr3 30 FREE L *MP[mp]A|2
open.date 8 DATE L *MP[mp]D|0
order.date 8 DATE L *MP[mp]|8
order.type 8 CHOICE L *MP[mp]A|6
po.disp 45 FREE L VAL=(@MM.PO.number_" - "_@MM.PO.type_" <"_@MM.PO.st
VAL=atus_"> "_%Z.date.out(@MM.PO.order.date)'=" -
VAL=<> ")
po.printed 8 DATE L *MP[mp]|16
po.tax.type 3 CHOICE L *MP[mp]|22
po.tot 11 DEC4 R *MP[mp]|11
po.tot.canc.us 10 INT R *MP[mp]A|19
prepay.po 1 YN L *MP[mp]|20
print.cd.screen 0 FREE L VAL=DO{@Next(cd.screen) %MIS.SCREEN.print(cd.screen,^@
VAL=customer.defined.fields,"",0)}
print.cd.screen.verbatim 0 FREE L VAL=DO{@Next(cd.screen) %MIS.SCREEN.print(cd.screen,^@
VAL=customer.defined.fields,1,0)}
purch.facility 10 FREE L MM.PUR.FAC *MP[mp]|23
return.from.po 10 FREE L *MP[mp]|24
ship.via 10 FREE L *MP[mp]|9
sort.id 30 FREE L
status 9 CHOICE L *MP[mp]|6
status.date 8 DATE L VAL=%MM.PO.find.status.date(urn)
tax.rate 6 DEC3 R *MP[mp]A|11
terms 35 FREE L *MP[mp]|17
tot.num.rcpts 3 PINT R *MP[mp]|21
type 9 CHOICE L *MP[mp]|2
vendor 11 FREE L MIS.VEN *MP[mp]|7
vendor.addr.1 35 FREE L *MP[mp]V|2
vendor.addr.2 35 FREE L *MP[mp]V|3
vendor.addr.3 35 FREE L *MP[mp]V|4
vendor.name 35 FREE L *MP[mp]V|0
vendor.name.2 35 FREE L *MP[mp]V|1
vendor.name.disp 35 FREE L VAL=(IF{@MM.PO.vendor.name;@MIS.VEN.name[@MM.PO.vendor
VAL=]})
zcus.....use.me 1 FREE L *MP[mp]ZCUSPRQ|0
zcus.uk.deliv.city 35 FREE L *MP[mp]ZCUSUK|3
zcus.uk.deliv.postal 10 ZIP.POST L MIS.ZIP *MP[mp]ZCUSUK|5
zcus.uk.deliv.province 20 FREE L *MP[mp]ZCUSUK|4
zcus.uk.facility.city 35 FREE L VAL=@MM.PUR.FAC.zcus.uk.fac.city[IF{@MM.PO.purch.facil
VAL=ity;@MM.PUR.FAC.dft.facility}]
zcus.uk.facility.postal 10 FREE L VAL=@MM.PUR.FAC.zcus.uk.fac.postal.code[IF{@MM.PO.purc
VAL=h.facility;@MM.PUR.FAC.dft.facility}]
zcus.uk.facility.province 20 FREE L VAL=@MM.PUR.FAC.zcus.uk.fac.province[IF{@MM.PO.purch.f
VAL=acility;@MM.PUR.FAC.dft.facility}]
zcus.uk.invoice.city 35 FREE L *MP[mp]ZCUSUK|6
zcus.uk.invoice.postal 10 ZIP.POST L MIS.ZIP *MP[mp]ZCUSUK|8
zcus.uk.invoice.province 20 FREE L *MP[mp]ZCUSUK|7
zcus.uk.offsite.city 35 FREE L *MP[mp]ZCUSUKA|0
zcus.uk.offsite.postal 10 ZIP.POST L MIS.ZIP *MP[mp]ZCUSUKA|2
zcus.uk.offsite.province 20 FREE L *MP[mp]ZCUSUKA|1
zcus.uk.pha.req.account 10 FREE L MM.UK.PHA.DA *MP[mp]ZCUSPRQ|2
zcus.uk.pha.req.supplier 10 FREE L MM.UK.PHA.DA *MP[mp]ZCUSPRQ|1
zcus.uk.vendor.city 35 FREE L *MP[mp]ZCUSUKV|0
zcus.uk.vendor.postal 10 ZIP.POST L MIS.ZIP *MP[mp]ZCUSUKV|2
zcus.uk.vendor.province 20 FREE L *MP[mp]ZCUSUKV|1
Ì € i 2
mm.po.comments (comments)
[urn, comment.no]
*MP[mp]C[mpCN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
comment.no 2 PINT R mpCN
comment 75 FREE L *MP[mp]C[mpCN]|0
comment.loc 5 CHOICE L *MP[mp]C[mpCN]|1
Ì € i 2
mm.po.customer.defined.queries (customer.defined.queries)
[urn, cd.query]
*MP[mp]CD[ggv]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.query 10 FREE L MIS.QUERY ggv
cd.query.resp 75 QRY.RESP L *MP[mp]CD[ggv]|0
Ì € i 2
mm.po.cust.def.mult.queries (customer.def.mult.queries)
[urn,cd.query, cdm.seq.no]
*MP[mp]CD[ggv]M[ggvN]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cdm.seq.no 3 PINT R ggvN
cdm.response 75 QRY.RESP L *MP[mp]CD[ggv]M[ggvN]|0
Ì € i 2
mm.po.customer.defined.screens (customer.defined.screens)
[urn, cd.screen]
*MP[mp]CDS[gxx]
Field Name Len Dat Typ J DPM Offset/Local/VAL
cd.screen 15 FREE L MIS.SCREEN gxx
Ì € i 2
mm.po.edi.txns (edi.txns)
[urn, edi.txn.type,edi.txn.urn]
*MP[mp]EDI[mpEDT,mpEDU]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edi.txn.type 4 CHOICE L mpEDT
edi.txn.urn 3 PINT R mpEDU
edi.txn.ack.date 8 DATE L *MP[mp]EDI[mpEDT,mpEDU]|0
edi.txn.ack.urn 8 URN L MM.PO.ACK *MP[mp]EDI[mpEDT,mpEDU]|1
edi.txn.sent.date 8 DATE L *MP[mp]EDI[mpEDT,mpEDU]|0
edi.txn.sent.entire.po 1 YN L *MP[mp]EDI[mpEDT,mpEDU]|2
edi.txn.sent.last.line 4 PINT R *MP[mp]EDI[mpEDT,mpEDU]|3
edi.txn.sent.program 15 FREE L MM.EDI.PROGRAM *MP[mp]EDI[mpEDT,mpEDU]|1
edi.txn.sent.value 10 SMONEY R *MP[mp]EDI[mpEDT,mpEDU]|4
Ì € i 2
mm.po.edi.txn.sent.lines (edi.txn.sent.lines)
[urn,edi.txn.type,edi.txn.urn, edi.txn.sent.line.no]
*MP[mp]EDI[mpEDT,mpEDU]L[mpL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
edi.txn.sent.line.no 4 PINT R mpL
edi.txn.sent.tot.ord.us 7 INT R *MP[mp]EDI[mpEDT,mpEDU]L[mpL]|0
Ì € i 2
mm.po.lines (lines)
[urn, line.no]
*MP[mp]L[mpL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
line.no 4 PINT R mpL
account 25 FREE L MIS.GL.ACCOUNT *MP[mp]L[mpL]I|4
asset.tag 10 FREE L *MP[mp]L[mpL]|24
auto 1 YN L *MP[mp]L[mpL]|17
change.from.account 25 FREE L *MP[mp]L[mpL]I|10
change.from.dept 15 FREE L *MP[mp]L[mpL]I|8
change.from.dept.or.inv 15 FREE L VAL=IF{@change.from.dept;@change.from.inv}
change.from.inv 10 FREE L *MP[mp]L[mpL]I|9
client 10 FREE L *MP[mp]L[mpL]|16
consign.order.line 4 PINT R *MP[mp]L[mpL]I|7
consignment.order 1 YN L *MP[mp]L[mpL]I|6
conv.unit.of.pur 10 FREE L *MP[mp]L[mpL]|12
cost.up 10 DEC4 R *MP[mp]L[mpL]|7
cost.up.us 10 DEC4 R VAL=(@MM.PO.cost.up:8D/@MM.PO.po.up.us:4D)
deliver.to 15 FREE L MM.DELIVER *MP[mp]L[mpL]C|0
dept 15 FREE L MIS.GL.DEPT *MP[mp]L[mpL]I|0
dept.or.inventory 16 FREE L VAL=IF{@dept "D"_@dept;"I"_@line.inventory}
eoc 7 FREE L MIS.GL.EOC *MP[mp]L[mpL]|2
item.category 8 FREE L MM.CATEGORY VAL=@MM.ITEM.category[@item.urn]
item.desc.line2 65 FREE L *MP[mp]L[mpL]A|1
item.description 65 FREE L *MP[mp]L[mpL]A|0
item.name 30 FREE L *MP[mp]L[mpL]A|2
item.no 10 FREE L *MP[mp]L[mpL]|1
item.packaging 40 FREE L VAL=IF{@MM.PO.item.no$5="MISC." @MM.PO.misc.item.packa
VAL=ging;@MM.ITEM.package.string}
item.pkg.string 40 FREE L VAL=IF{@MM.PO.item.no$5="MISC." @MM.PO.misc.item.packa
VAL=ging;@MM.ITEM.packaging[@item.urn,(@pkg.string.ptr
VAL=+0)]}
item.urn 73 URN L MM.ITEM *MP[mp]L[mpL]|0
last.rcv.txn 5 INT R *MP[mp]L[mpL]|22
last.txn 5 URN L VAL=@Last(txn.urn,@MM.PO.transactions)
line.inventory 10 FREE L MM.INVENT *MP[mp]L[mpL]I|1
line.reason.for.return 75 FREE L *MP[mp]L[mpL]RR|0
line.ret.exch 4 CHOICE L *MP[mp]L[mpL]|26
manuf 10 FREE L *MP[mp]L[mpL]A|4
manuf.catlg 15 FREE L *MP[mp]L[mpL]A|5
misc.item.packaging 40 FREE L *MP[mp]L[mpL]M|0
misc.manuf 10 FREE L MIS.MFR *MP[mp]L[mpL]M|2
misc.manuf.catlg 15 FREE L *MP[mp]L[mpL]M|3
misc.smallest.unit 10 FREE L *MP[mp]L[mpL]M|4
misc.vend.catlg 15 FREE L *MP[mp]L[mpL]M|1
pkg.ptr 4 INT R VAL=@p.pkg.string.ptr+0
pkg.string.ptr 4 INT R *MP[mp]L[mpL]A|6
po.req 30 URN L MM.PO.REQ *MP[mp]L[mpL]R|0
po.req.line.no 4 PINT R *MP[mp]L[mpL]R|1
po.unit.of.pur 10 FREE L *MP[mp]L[mpL]|9
po.unit.of.pur.num 2 INT R VAL=(@MM.PO.po.unit.of.pur$(L(@MM.PO.po.unit.of.pur,"
VAL="))?0N!1)
po.up.us 7 PINT R *MP[mp]L[mpL]|10
po.up.with.us 15 FREE L *MP[mp]L[mpL]|11
po.upn 20 *MP[mp]L[mpL]|29
price.confirmed 1 YN L *MP[mp]L[mpL]|13
qty.per.order 7 INT R *MP[mp]L[mpL]|18
qty.tolerance.up 7 DEC3 R *MP[mp]L[mpL]|15
qty.up 7 INT R *MP[mp]L[mpL]|14
qty.up.with.up 18 FREE L VAL=(@p.MM.PO.qty.up_" "_@p.MM.PO.po.unit.of.pur)
ret.from.po.line 4 PINT R *MP[mp]L[mpL]|25
smallest.unit 10 FREE L VAL=IF{@MM.PO.misc.smallest.unit;@MM.ITEM.smallest.uni
VAL=t}
smallest.unit.rpt 10 FREE L VAL=IF{@MM.PO.misc.smallest.unit;@MM.ITEM.smallest.uni
VAL=t[@item.urn]}
stock.no 8 FREE L *MP[mp]L[mpL]I|3
stock.on.hand 15 FREE L VAL=IF{@line.inventory 0+@MM.STOCK.qty.on.hand[@stock.
VAL=urn]^XX/(@po.up.us^PP)_IF{XX\PP'=0^XX ";"_XX}}
stock.on.hand.slash 15 FREE L VAL=IF{@t.line.inventory 0+@MM.STOCK.qty.on.hand[@t.st
VAL=ock.urn]^XX/(@t.po.up.us^PP)_IF{XX\PP'=0^XX ";"_XX
VAL=}}
stock.on.order 15 FREE L VAL=IF{@line.inventory @MM.STOCK.qty.on.order[@stock.u
VAL=rn]^XX/(@po.up.us^PP)_IF{XX\PP'=0^XX ";"_XX}}
stock.on.order.slash 15 FREE L VAL=IF{@t.line.inventory @MM.STOCK.qty.on.order[@t.sto
VAL=ck.urn]^XX/(@po.up.us^PP)_IF{XX\PP'=0^XX ";"_XX}}
stock.urn 18 URN L MM.STOCK *MP[mp]L[mpL]I|2
tax.code 3 FREE L MIS.TAX.CODE *MP[mp]L[mpL]I|5
tot.canc.up 11 DEC3 R VAL=(@MM.PO.tot.canc.us:8D/@MM.PO.po.up.us:3D)
tot.canc.up.part 15 FREE L VAL=(0+@p.MM.PO.tot.canc.us^TT/@p.MM.PO.po.up.us_IF{0+
VAL=TT\@p.MM.PO.po.up.us^TT'=0 ";"_TT})
tot.canc.us 7 INT R *MP[mp]L[mpL]|21
tot.canc.value 9 MONEY R VAL=(@MM.PO.tot.canc.us:8D/@MM.PO.po.up.us*@MM.PO.cost
VAL=.up:2D)
tot.left.up 11 DEC3 R VAL=(0+@MM.PO.tot.ord.us-(@MM.PO.tot.rcv.us+@MM.PO.tot
VAL=.canc.us)!0:8D/@MM.PO.po.up.us:3D)
tot.left.up.part 15 FREE L VAL=(0+@p.MM.PO.tot.ord.us-(@p.MM.PO.tot.rcv.us+@p.MM.
VAL=PO.tot.canc.us)!0^TT/@p.MM.PO.po.up.us_IF{0+TT\@p.
VAL=MM.PO.po.up.us'=0^TT ";"_TT})
tot.left.us 7 INT R VAL=(0+@tot.ord.us-(@tot.rcv.us+@tot.canc.us)!0)
tot.left.value 9 MONEY R VAL=(@MM.PO.tot.left.us:8D/@MM.PO.po.up.us*@MM.PO.cost
VAL=.up:2D)
tot.ord.up 11 DEC3 R VAL=(@MM.PO.tot.ord.us:8D/@MM.PO.po.up.us:3D)
tot.ord.up.part 15 FREE L VAL=(0+@p.MM.PO.tot.ord.us^TT/@p.MM.PO.po.up.us_IF{0+T
VAL=T\@p.MM.PO.po.up.us^TT'=0 ";"_TT})
tot.ord.us 7 INT R *MP[mp]L[mpL]|19
tot.ord.value 9 MONEY R VAL=(@MM.PO.tot.ord.us:8D/@MM.PO.po.up.us*@MM.PO.cost.
VAL=up:2D)
tot.p.left.up 11 DEC3 R VAL=(0+@p.MM.PO.tot.ord.us-(@p.MM.PO.tot.rcv.us+@p.MM.
VAL=PO.tot.canc.us)!0:8D/@p.MM.PO.po.up.us:3D)
tot.p.left.up.part 15 FREE L VAL=(0+@p.MM.PO.tot.ord.us-(@p.MM.PO.tot.rcv.us+@p.MM.
VAL=PO.tot.canc.us)!0^TT/@p.MM.PO.po.up.us_IF{0+TT\@p.
VAL=MM.PO.po.up.us'=0^TT ";"_TT})
tot.p.left.us 7 INT R VAL=(0+@p.tot.ord.us-(@p.tot.rcv.us+@p.tot.canc.us)!0)
tot.p.to.ord.us 7 INT R VAL=(@p.MM.PO.tot.to.order*@p.MM.PO.po.up.us)
tot.rcv.canc.up 11 DEC3 R VAL=(@MM.PO.tot.rcv.us+@MM.PO.tot.canc.us:8D/@MM.PO.po
VAL=.up.us:3D)
tot.rcv.canc.up.part 15 FREE L VAL=(0+@p.MM.PO.tot.rcv.us+@p.MM.PO.tot.canc.us^TT/@p.
VAL=MM.PO.po.up.us_IF{0+TT\@p.MM.PO.po.up.us^TT'=0 ";"
VAL=_TT})
tot.rcv.up 11 DEC3 R VAL=(@MM.PO.tot.rcv.us:8D/@MM.PO.po.up.us:3D)
tot.rcv.up.part 15 FREE L VAL=(0+@p.MM.PO.tot.rcv.us^TT/@p.MM.PO.po.up.us_IF{0+T
VAL=T\@p.MM.PO.po.up.us^TT'=0 ";"_TT})
tot.rcv.us 7 INT R *MP[mp]L[mpL]|20
tot.rcv.value 9 MONEY R VAL=(@MM.PO.tot.rcv.us:8D/@MM.PO.po.up.us*@MM.PO.cost.
VAL=up:2D)
tot.t.left.up 11 DEC3 R VAL=(0+@t.MM.PO.tot.ord.us-(@t.MM.PO.tot.rcv.us+@t.MM.
VAL=PO.tot.canc.us)!0:8D/@t.MM.PO.po.up.us:3D)
tot.t.left.up.part 15 FREE L VAL=(0+@t.MM.PO.tot.ord.us-(@t.MM.PO.tot.rcv.us+@t.MM.
VAL=PO.tot.canc.us)!0^TT/@t.MM.PO.po.up.us_IF{0+TT\@t.
VAL=MM.PO.po.up.us'=0^TT ";"_TT})
tot.t.left.us 7 INT R VAL=(0+@t.tot.ord.us-(@t.tot.rcv.us+@t.tot.canc.us)!0)
tot.t.ord.up.part 15 FREE L VAL=(0+@t.MM.PO.tot.ord.us^TT/@t.MM.PO.po.up.us_IF{0+T
VAL=T\@t.MM.PO.po.up.us^TT'=0 ";"_TT})
tot.t.to.ord.us 7 INT R VAL=(@t.MM.PO.tot.to.order*@t.MM.PO.po.up.us)
tot.to.ord.us 7 INT R VAL=(@MM.PO.tot.to.order*@MM.PO.po.up.us)
tot.to.order 7 INT R *MP[mp]L[mpL]|23
trade.for.line 4 PINT R *MP[mp]L[mpL]|28
trade.from.line 4 PINT R *MP[mp]L[mpL]|27
vend.catlg 15 FREE L *MP[mp]L[mpL]A|3
vend.unit.of.pur 10 FREE L VAL=@MM.ITEM.vend.unit.of.pur[@MM.PO.item.urn,@MM.PO.v
VAL=endor,@MM.PO.pkg.ptr]
Ì € i 2
mm.po.asset.tags (asset.tags)
[urn,line.no, tag.seq.no]
*MP[mp]L[mpL]AT[mpTS]
Field Name Len Dat Typ J DPM Offset/Local/VAL
tag.seq.no 5 PINT R mpTS
asset.created 1 YN L *MP[mp]L[mpL]AT[mpTS]|3
quantity 7 INT R *MP[mp]L[mpL]AT[mpTS]|0
quantity.used 7 INT R *MP[mp]L[mpL]AT[mpTS]|4
serial.no 20 FREE L *MP[mp]L[mpL]AT[mpTS]|2
tag.no 10 FREE L *MP[mp]L[mpL]AT[mpTS]|1
Ì € i 2
mm.po.lines.desc (desc)
[urn,line.no, desc.line]
*MP[mp]L[mpL]D[mpDL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
desc.line 3 PINT R mpDL
sec.desc 50 FREE L *MP[mp]L[mpL]D[mpDL]
Ì € i 2
mm.po.lines.transactions (transactions)
[urn,line.no, txn.urn]
*MP[mp]L[mpL]T[mpT]
Field Name Len Dat Typ J DPM Offset/Local/VAL
txn.urn 5 URN L mpT
edit.from 14 FREE L *MP[mp]L[mpL]T[mpT]|13
edit.to 14 FREE L *MP[mp]L[mpL]T[mpT]|14
first.order.txn 1 YN L VAL=IF{NEW.ORDER&(@status="WORKING") "Y";"N"}
inventory.adj 5 FREE L *MP[mp]L[mpL]T[mpT]|15
packing.list 20 FREE L *MP[mp]L[mpL]T[mpT]|3
rcv.adj.cost 11 DEC4 R *MP[mp]L[mpL]T[mpT]|16
rcv.adj.us 7 PINT R VAL=(0+@MM.PO.po.up.us*@MM.PO.rcv.adj.cost:4D/@MM.PO.t
VAL=xn.cost.um)
txn.amt 11 DEC4 R *MP[mp]L[mpL]T[mpT]|7
txn.comment 75 FREE L *MP[mp]L[mpL]T[mpT]|11
txn.conv.unit.of.meas 10 FREE L *MP[mp]L[mpL]T[mpT]|5
txn.cost.um 11 DEC4 R *MP[mp]L[mpL]T[mpT]|8
txn.cost.us 10 DEC4 R VAL=(@txn.amt:8D/@txn.qty.us:4D)
txn.date 8 DATE L *MP[mp]L[mpL]T[mpT]|1
txn.qty.um 8 INT R *MP[mp]L[mpL]T[mpT]|6
txn.qty.us 11 INT R *MP[mp]L[mpL]T[mpT]|9
txn.tax.code 3 FREE L MIS.TAX.CODE *MP[mp]L[mpL]T[mpT]|10
txn.taxable 1 YN L *MP[mp]L[mpL]T[mpT]|12
txn.type 1 CHOICE L *MP[mp]L[mpL]T[mpT]|0
txn.unit.of.meas 10 FREE L *MP[mp]L[mpL]T[mpT]|4
um.us 8 INT R VAL=(@txn.qty.us/@txn.qty.um)
user 10 FREE L MIS.USER *MP[mp]L[mpL]T[mpT]|2
Ì € i 2
manufacturer lot no/exp dates (zcus.uk.rcv.man.lot.data)
[urn,line.no,txn.urn, zcus.uk.lot.number.q]
*MP[mp]L[mpL]T[mpT]ZCUSLOT[mplq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.uk.lot.number.q 3 PINT R mplq
zcus.uk.lot.exp.date 8 DATE L *MP[mp]L[mpL]T[mpT]ZCUSLOT[mplq]|1
zcus.uk.lot.number 10 FREE L *MP[mp]L[mpL]T[mpT]ZCUSLOT[mplq]|0
zcus.uk.lot.quantity.up 10 PINT R *MP[mp]L[mpL]T[mpT]ZCUSLOT[mplq]|2
Ì € i 2
Reqs in supplier for this PO (zcus.uk.pha.supp.reqs)
[urn, zcus.uk.supp.req.inv,zcus.uk.supp.req.number]
*MP[mp]ZCUSRQS[mi,mq]
Field Name Len Dat Typ J DPM Offset/Local/VAL
zcus.uk.supp.req.inv 10 FREE L MM.INVENT mi
zcus.uk.supp.req.number 20 FREE L MM.STOCK.REQ mq
zcus.uk.supp.req.link 1 FREE L *MP[mp]ZCUSRQS[mi,mq]
Ì i 2
po.vendor.lock (po.vendor.lock)
[po.vendor]
:MPVLOCK[gr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
po.vendor 11 FREE L MIS.VEN gr
Ì i 2
mm.po.process.list (process.list)
[process.list.urn]
:MPOP[mpop]
Field Name Len Dat Typ J DPM Offset/Local/VAL
process.list.urn 12 URN L mpop
completed 12 FREE L :MPOP[mpop]|6
create.from 3 CHOICE L :MPOP[mpop]|1
create.user 10 FREE L MIS.USER :MPOP[mpop]|5
duplicate.lines 1 YN L :MPOP[mpop]|10
effect.date 8 DATE L :MPOP[mpop]|3
job 10 FREE L :MPOP[mpop]|4
process.list.date 8 DATE L :MPOP[mpop]|0
select.ap.database 12 FREE L MIS.APPL :MPOP[mpop]|9
select.inventory 10 FREE L MM.INVENT :MPOP[mpop]|7
select.purch.facility 10 FREE L MM.PUR.FAC :MPOP[mpop]|8
selection 1 CHOICE L :MPOP[mpop]|2
zcus.uk.pha.proc.account 10 FREE L MM.UK.PHA.DA :MPOP[mpop]ZCUSUK|1
zcus.uk.pha.proc.supplier 10 FREE L MM.UK.PHA.DA :MPOP[mpop]ZCUSUK|0
Ì € i 2
mm.po.inv.list (inv.list)
[process.list.urn, stock.item.urn]
:MPOP[mpop]P[ms]
Field Name Len Dat Typ J DPM Offset/Local/VAL
stock.item.urn 18 URN L MM.STOCK ms
stock.po.line.no 4 PINT R :MPOP[mpop]P[ms]|1
stock.po.urn 30 URN L MM.PO :MPOP[mpop]P[ms]|0
Ì € i 2
mm.po.process.req.list (req.list)
[process.list.urn, req.urn,req.line.no]
:MPOP[mpop]R[mr,mrL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
req.urn 30 URN L MM.PO.REQ mr
req.line.no 4 PINT R mrL
req.po.line.no 4 PINT R :MPOP[mpop]R[mr,mrL]|1
req.po.urn 30 URN L MM.PO :MPOP[mpop]R[mr,mrL]|0
Ì € i 2
mm.po.process.selection.list (selection.list)
[process.list.urn, entry.no]
:MPOP[mpop]L[mpopL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
entry.no 10 FREE L mpopL
filler 11 FREE L :MPOP[mpop]L[mpopL]
Ì € i 2
mm.po.spo.list (spo.list)
[process.list.urn, po.urn]
:MPOP[mpop]S[mp]
Field Name Len Dat Typ J DPM Offset/Local/VAL
po.urn 30 URN L MM.PO mp
po.auto.receive 1 YN L :MPOP[mpop]S[mp]|0
po.rcvd 1 YN L :MPOP[mpop]S[mp]|1
Ì i 2
mm.po.purchase.vendor.lock (purchase.vendor.lock)
[locked.po.vendor]
:MPLOCK[gr]
Field Name Len Dat Typ J DPM Offset/Local/VAL
locked.po.vendor 11 FREE L MIS.VEN gr
Ì i 2
mm.po.reports (reports)
[report]
*MPW[mpw]
Field Name Len Dat Typ J DPM Offset/Local/VAL
report 10 FREE L mpw
rep.compile.status 10 CHOICE L *MPW[mpw]C|0
rep.inquiry.format 1 CHOICE L *MPW[mpw]C|7
rep.major.sort 15 FREE L MM.FIELDS *MPW[mpw]C|11
rep.minor.sort 15 FREE L MM.FIELDS *MPW[mpw]C|12
rep.new.page 5 CHOICE L *MPW[mpw]C|14
rep.num.records 6 PINT R *MPW[mpw]C|13
rep.report.format 1 CHOICE L *MPW[mpw]C|6
rep.sort.level 7 CHOICE L *MPW[mpw]C|9
rep.start.date 8 DATE L *MPW[mpw]C|1
rep.start.time 5 TIME L *MPW[mpw]C|2
rep.stop.date 8 DATE L *MPW[mpw]C|3
rep.stop.time 5 TIME L *MPW[mpw]C|4
rep.subtotal 5 CHOICE L *MPW[mpw]C|15
rep.title 50 FREE L *MPW[mpw]C|5
Ì € i 2
mm.po.selections (selections)
[report, rep.sel.queue]
*MPW[mpw]C["S",mpwSQ]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rep.sel.queue 2 PINT R mpwSQ
rep.select.field 15 FREE L MM.FIELDS *MPW[mpw]C["S",mpwSQ]|0
rep.select.from 30 FREE L *MPW[mpw]C["S",mpwSQ]|1
rep.select.from.date 8 DATE L *MPW[mpw]C["S",mpwSQ]|3
rep.select.to 30 FREE L *MPW[mpw]C["S",mpwSQ]|2
rep.select.to.date 8 DATE L *MPW[mpw]C["S",mpwSQ]|4
Ì € i 2
mm.po.report.data (report.data)
[report, rep.major.value,rep.minor.value,rep.po.number]
*MPW[mpw]R[mpWV1,mpWV2,mpR]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rep.major.value 15 FREE L mpWV1
rep.minor.value 15 FREE L mpWV2
rep.po.number 10 FREE L mpR
rep.po.urn 10 URN L *MPW[mpw]R[mpWV1,mpWV2,mpR]
Ì € i 2
mm.po.report.line.data (report.line.data)
[report,rep.major.value,rep.minor.value,rep.po.number, rep.line.no]
*MPW[mpw]R[mpWV1,mpWV2,mpR]L[mpL]
Field Name Len Dat Typ J DPM Offset/Local/VAL
rep.line.no 4 PINT R mpL
rep.line.filler 1 PINT R *MPW[mpw]R[mpWV1,mpWV2,mpR]L[mpL]
Ì 2
INDEX FILE/INTERNAL NAME SUBSCRIPTS/PHYSICAL BASE
mm.po.activity.index [txn.date,urn,txn.type,line.no,txn.urn] = first.order.txn
activity.x ?MPAX[mpTD,mp,mpC,mpL,mpT]
mm.po.bad.number.x [number]
bad.number.x ?MPBR[mpR]
mm.po.buyer.index [buyer,urn]
buyer.x ?MPB[guB,mp]
mm.po.item.manuf.catlg.index [manuf.catlg,item.urn]
catlg.x ?MPMC[gmC,mt]
mm.po.consign.dept.index [inventory,dept,txn.date,number,urn,line.no,txn.urn]
consign.dept.x ?MPCD[mi,gd,mpTD,mpR,mp,mpL,mpT]
mm.po.consign.pack.list.index [inventory,packing.list,txn.date,number,urn,line.no,txn.urn]
consign.pack.list.x ?MPCP[mi,mpPL,mpTD,mpR,mp,mpL,mpT]
mm.po.corp.x [MIS.GL.CORP.number,urn,line.no]
corp.x ?MPCRP[gn,mp,mpL]
mm.po.order.date.number.index [order.date,number] = urn
date.num.x ?MPDR[mpOD,mpR]
mm.po.order.date.index [order.date,urn]
date.x ?MPD[mpOD,mp]
mm.po.delivery.date.index [deliv.date,urn]
deliv.x ?MPDD[mpDD,mp]
mm.po.dept [dept,urn,line.no]
dept.x ?MPDP[gd,mp,mpL]
mm.po.id.x [sort.id,urn]
id.x ?MPI[mpI,mp]
mm.po.item.index [item.urn,urn,line.no]
item.x ?MPIT[mt,mp,mpL]
mm.po.item.manufacturer.index [manuf,item.urn]
manuf.x ?MPTM[gm,mt]
mm.po.number.index [number,urn]
number.x ?MPR[mpR,mp]
mm.po.packing.list.index [urn,packing.list,line.no,txn.urn]
pack.list.x ?MPLX[mp,mpPL,mpL,mpT]
mm.po.line.index [urn,line.no]
po.index ?MPPI[mp,mpL]
mm.po.stand.x [deliv.date,urn]
stand.x ?MPST[mpDD,mp]
mm.po.status.index [status,urn]
status.x ?MPS[mpS,mp]
mm.po.stock.index [urn,stock.urn,line.no]
stock.x ?MPIS[mp,ms,mpL]
mm.po.type.index [type,urn]
type.x ?MPT[mpTP,mp]
mm.used.asset.tag.x [tag.no,urn]
used.asset.tag.x ?MPASSETX[mpTAG,mp]
mm.po.item.vendor.catlg.index [vend.catlg,item.urn]
ven.catlg.x ?MPVC[gvC,mt]
mm.po.vendor.index [vendor,urn]
vendor.x ?MPV[gr,mp]
mm.po.working.index [vendor,urn]
working.x ?MPSW[gr,mp]
index pha reqs by account [zcus.uk.pha.req.account,urn]
zcus.uk.account.x ?MPZCUS.ACTX[muda,mp]
index of pha reqs by supplier [zcus.uk.pha.req.supplier,urn]
zcus.uk.supplier.x ?MPZCUS.SUPX[muda,mp]
|
|
| | | | | | | | | | | | | | | | | | | | | | | | | | | |